www.gusucode.com > Neutrosophic logic toolbox Package_ Neutrosophic Matrices > Neutrosophic logic toolbox Package_ Neutrosophic Matrices/@nm/complement1.m

    function At=complement1(A);
% function st=disp_intui(A);
% complement of type1 single valued neutrosophic matrix A 
% "A" have to be single valued neutrosophic  matrix - "nm" object:
a.m=A.n;
a.i=A.i;
a.n=A.m;
At=nm(a.m,a.i,a.n);